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EDITORIAL 


Dans le numéro d'octobre du mensuel MICRO-SYSTEMES, vous 
trouverez un article, qui, si vous ne l'avez déja lu, vous 
séduira: "chaos fractal sur AMSTRAD". On pourrait critiquer 
le fait qu'il soit écrit en BASIC, mais pour une fois pas- 
sons ce détail. Voici l'exemple le plus merveilleux d'utili- 
sation d'un micro-ordinateur familial (et à vocation semi- 
pro...) pour la plus inutile des activités: un programme qui 
ne sert à rien, un programme qui existe comme existe un 
tableau ou une musique. De la complexité des algorithmes se 
dégage la beauté formelle et impalpable du sens caché de la 
nature des nombres. Le ballet des chiffres se déplaçant sur 
une scène à quatre dimensions ne nous laissent voir que 
l'ombre de leur existence, 


Et ce préambule me remémore un ouvrage que j'avais lu et 
apprécié, "CONTACT" écrit par Carl SAGAN. Le thème du livre 
est simple; on réussit à capter des signaux provenant d'une 
intelligence extra-terrestre. Mais dans ce livre, {1 est 
aussi question de chiffres. On commence par les nombres 
premiers, puis... (mais je ne dévoilerai pas l'histoire), Et 
nombre de savants se mettent à chercher les clefs du mes- 
sage, car il y a un message et même les plans d'une machine. 
Dans ce livre, Carl SAGAN mêle avec habileté la politique, 
la religion, l'informatique et les mathématiques (en 
core...). La grande surprise vous est assénée à la fin du 
livre, car après un fantastique voyage à l'autre bout de 
l'univers, vous ne saurez toujours pas à quoi ressemblent 
les extra-terrestres, mais vous saurez que eux aussi cher 
chent la clef du message, celui contenu dans un nombre, le 
nombre le plus répandu dans l'univers... 
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Peut-être Carl SAGAN a-t-il raison, mais La conclusion de 
son livre reste quand même une hypothèse de travail. Tou- 
jours est-il que je n'ai pu m'empêcher de faire un rappro- 
chement entre cette histoire de clef contenue dans un nombre 
et les images fractales. : 


Alors peut-être doit-on considérer les ordinateurs comme des 
microscopes dont la destination essentielle est la dissec- 
tion d'entités non physiques restant encore à découvrir. 
Autrefois, on recherchait la clef de la vie au bout d'une 
lentille et l'on distinguait à peine les bactéries. Depuis, 
avec le microscope électronique, on atteint la molécule, 
mais on n'a pas encore trouvé la vie. Nos ordinateurs ac- 
tuels, si puissant soient-{ls, semblent encore aussi primi- 
tifs que la première lentille de grossissement au regard des 
entités mathématiques à manipuler. Les plus grands centres 
de calcul s'enfoncent avec peine dans des domaines de re- 
cherche où la connaissance théorique construit des modèles 
d'univers dont les fractals n'en sont qu'un des exemples les 
plus simples, 


Cette notion de calcul est certes fondamentale, mais les 
idées aussi ont leur importance. Chaque nouveau modèle ma- 
thématique peut avoir des retombées pratiques ou philosophi- 
ques. La géométrie fractale chasse celle d'Euclide comme la 
physique Einsteinienne a écrasé celle de Newton (...et 1'Am- 
strad Je ZX 81..). Et puis, quel merveilleux terrain de 
recherche. Il suffit de disposer d'un stylo, de papier et 
d'un ordinateur. 
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FORTH 


æÆ LE FHRASE EN FORTHA + 


par W. Baden et K. Clark, traduction À, J., aout 86, 


Phrasé: (n.s.) Manière, art de phraser, en ausique. (Petit Robert). 
*Le phrasé est un art subjectif; je n'ai jamais trouvé un ensesble utilisable de règles formelles. * 
(Leo Brodie, "Débutez en Forth", ed, Eyrolles) | 


De quoi s'agit-il? 


Le phrasé, en Forth, se réfère à la façon de placer des espaces supplémentaires entre les aots dans les 
définitions. Ce qui groupe le code en "phrases" permettant au Lecteur de le comprendre. Le “phrasé" aide l'humain, mais 
pas le calculateur dans l'analyse du code. | 

L'analyse grasmaticale consiste à identifier chaque aot de chaque partie d'une phrase, Un moyen effectif 
d'analyse des phrases Forth est de revenir à ce sens presier, c.äd, d'identifier les parties du “discours-code" Forth. 

Il existe déjà nonbre de classes de aots Forth bien connus des utilisateurs : ce sont les opérateurs de 
pile, logiques, arithsétiques et de controle du flot d'entrée. Mais ces nons de classes caractérisent le genre d'opéra- 
tions effectuées par le programe, ils ne décrivent pas des aots qui agissent, des aots sur lesquels on agit, et des 
sots qui sodifient des actions. 

On à donc besoin de termes décrivant les interactions entres les mots eux-mêmes. Le terme “phrasé" est 
utilisé en ausique chorale, où il faut respirer entre les phrases. Aucun autre terne ausical ne seable convenir, bien 
que les gens aient besoin de “penser” entres les phrases Farth. Nous trouverons les ternes nécessaires en adaptant ceux 
de La classification standard existant en Gragsaire, Une telle adaptation perset de développer un nécanisae créant un 
Forth “phrasé”. 


Coament ça sarche, 


En Forth, toute opération consence et finie avec une pile vide. Entre les deux, des valeurs y sont placées 
puis retirées. Ainsi une série de sots Forth opérant sur des paranètres étroitesent assaciés doivent être groupés sans 
espaces supplérentaires. De nouvelles opérations sont noraalesent précédées d'un espace suplémentaire pour signaler une 
nouvelle "pensée". Cet espace délinite les positions entre lesquelles une action est conplètée. 

Les applications Forth sont pathologiques s'il reste quelque chose sur La pile chaque fais qu'elles sont 
exécutées. Donc l'examen de la pile indique si une tâche est terminée. Mais il apparait que le nombre d'articles 
ajoutés ou tés de la pile est sans rapport avec le "phrasé" en Forth. En effet, la plupart des mots Forth sont 
construits. à partir de plusieurs phrases foraées d'autres aots Forth, le aot résultant ayant son propre diagranne de 
pile. De aôse le sens des articles de la pile ne joue aucun rôle: ils peuvent être aussi bien des drapeaux sur un 
bit que des adresses de chaines, L'enplacenent des espaces supplénentaires n'a pas grand chose à voir avec le sens des 
articles enpilés, 


Teraes grassaticaux, leur lien avec les opérations de pile. 


Cosae en grammaire, un discours Forth est formé de quatre parties: les NOMS,les VERBES les ADJECTIFS et les 
INTERJECTIONS.Un NOM est un aot Forth enpilant des valeurs: il none en effet quelque chose et ouvre un “sujet de discus 
sion" sur la pile. Un autre genre de not Forth utilise Les articles enpilés: c'est Le VERRE, menant l'action et termi- 
nant une phrase en vidant la pile, 

Les aots prenant une valeur sur la pile et y déposant cette valeur où une autre sont des ADJECTIFG: ils @o- 
difient Les nons et altèrent d'une certaine façon Le sujet (les idées enpilées) de la discussion, Enfin le dernier genre 
ignore complètement La pile: Les INTERJECTIONS représentent une coupure dans le flot de la conversation et changent 
moñentanéaent le contexte. 

En résumé (table {) : 


TABLE 1 


GENRE du mot 


NOM { } 
ADJECTIF { qcgqa —-— gca ) 
VEREE { gcqa —— } 
INTERJECTION { } 
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Le sens des aots n'intervient que très peu. Les aots DUP, SAP, OVER, GROF, etc, sont strictement das ADJEC- 
TIFS ou des VERBES. Mais le “phrasé" les traite conne des NONS, car ils se réfèrent à des articles déjà présents dans la 
discussion (la pile), En d'autres termes, ce sont des PRONONS puisqu'ils remplacent des noas, Mais pour Le "phrasé", leur 
sens est sans iaportance. 


Construction des phrases, 


Dans tous les langages naturels, une phrase est une séquence correcte de mots. En Forth, les mots plaçant 
des articles sur La pile doivent nécessairement apparaitre avant ceux aodifiant ou prenant des valeurs enpilées, Conne 
en français (fais pas en anglais), les adjectifs suivent les nos, alors que les verbes arrivent en dernier { conne en 
Latin classique), 

En langue naturelle, la ponctuation utilise Les points et virgules. Pour d'évidentes raisons, on ne peut 
placer des points entre les phrases Forth. Mais l'insertion d'espaces est sans danger, et d'ailleurs utilisée couramment 
pour ponctuer les coupures naturelles du code Forth. 


Liste des régles, 


Nous pouvons maintenant décider dans quels cas des espaces supplémentaires doivent être insérés, Un encenble 
raisonnable de règles de "phrasé" serait alors: 


Des espaces doivent étre ajoutés : 
après un nom s'il est suivi d'une inter jection:; 
après un adjectif s'il est suivi d'un nom ou d'une inter jection: 
après un verbe suivi d'un nom, d'un adjectif ou d'une inter jection,. 
après une inter jection et un nom, ou un adjectif, ou un verbe. 

Fas d'espace supplémentaire autrement. 
Ces règles sont résunées en table 2. 
TABLE 2 : ESPACES SUFFLEMENTAIRES. 
TYPE NOM ADJECTIF VERBE INTERJECTION 

NOM — — 
ADJECTIF 


+ 
VERBE + + + 
INTERJECTION + + + 


Le premier aot d'une paire se trouve dans l'une des rangées de La colonne "type". Le second est or 
d'une colonne. À l'intersection, un signe "+" signale qu'un espace suipplémentaire doit étre ajouté, 

Ceci recouvre toutes Les règles du phrasé, sauf pour les nots de structure logique tels que ÎF, ELSE, 
THEN. Ceux-ci ont leur propre convention de formatage, mais il ne peut y avoir de conflit puisque le phrasè concerne 
les séparations horizontales, alors que Le formatage des structures de contrôle est vertical. Formatage et phrasé 
deux façons de rendre Le code Forth lisible (cf. BRODIE, 0.p.), 

Ces aots de structure peuvent être considérés conne des CONJONCTIONS. Remarquez qu'elles n'affectent la 
pile qu'à la cospilation, pas à l'exécution, On pourrait utiliser ce conportement de la pile pour faire de l'impression 
soignée ('pretty-print"} du code Forth, mais il se trouve que cette méthode est moins pratique que celles en usage, 


Conment cela fonctionne-t-il en réalité? 


TE 


Voici des exenples de phrasé basé sur les règles précédentes, avec des définitions possibles 
fasiliers (ou peut-étre pas tellement ... }. 
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ns TYPE € addr,len FX FAD R& CMOVE FAD FR TYPE : 


: LIST ( SCrÉ —— : affiche contenu de l'écran sctrk#, } 
1 PENOUGH DECIMAL CR 9 Gore " DUEF SCK ! L/SCR @: 
DO CR TE .K SFACE I C/L *% SCR @ BLOCKH + 


C/L eTRAILING TYPE 
LOOF CK 3 


CE: Oonn eo ns gimple addition. ) 
BEGIN FDUF 
WHILE ZDUF  XOF ROT KOT AND 2x REPFEAT 


2 T# € dn,,n me En,, # triple produit. ) 

TUCE CEROCER OVEFC Fi ENES G Fi Re R& OVER A LA Es 
IF De ELSE 2DRQF THEN 

Re KR& OVER Ut D+ Fe (ie KR AND -— 3 

4 T/ € En,,,n —- dn, #4 triple quotient. ) 

QUE A AËS FC DUF @< KE AND + R& UM/MOQD 


—ROT RS UM/MQD NIF SWAF Ki PNEGATE $ 


re 


# MX/ Can, nn ee dm, #4 résultat interm, gt &é oct, ): 


FR T+ FR T/ 5 


Renarquez que le phrasé est encore convenable, nêne lorsque des substitutions de nots ont eu lieu. Par 
exenple, dans La définition de "+", si 2DUP est renglacé par OVER OVER, les règles de base seront encore respectées, 
On pourrait aussi renplacer les deux ROT par -ROT sans effet néfaste, 


(NdT) En Forth 83-Standard : 
ENQUGH Un --}) affiche un message d'erreur si le nonbre de paramètres enpilés est insuffisant, 
TUCK Untn2--n2atn2} glisse le preaier élénent de La pile sous le second, 
NIP efface le deuxième élément de la pile, 
L/SCR nombre de lignes par écran. 


Sur quelques points de détail. 


L'examen de ces exenples révèle quelques conséquences pratiques de ces règles, Quelques fois l'espace sup- 
plénentaire inséré entre Les aûts doit être un Retour Chariot pour ne pas couper une phrase par une fin de ligne à 
l'affichage. Mais ceci dépend davantage du "pretty-printing" que du phrasé. 

D'autre part, il senble y avoir une classe de aots que l'on pourrait appeler des PREPOSITIONS; ces mots 
sont liés d'une certaine façon au not qui Les suit. Les mots de définition en sont un bon exenple. VARIABLE, CONSTANT, 
.", FORGET, CODE et d'autres mots recherchent dans le flot d'entrée un autre mot où une chaîne conne paramètre; dans 
le contexte du phrasé Forth par effet de pile, une partie du discours dépend de l'ensemble de cette chaîne, Conne plus 
d'un not est toujours nécessaire, peut-être devrait-on les appeler des PHRAGES PREPOSITIONNELLES, Une telle phrase 
peut être constituée de n'importe lequel des quatre types de mots définis, Par conséquent, les PREFOSITIONS elles-né- 
ses sont différentes et demandent un traitement spécial, 

En dehors de ces exceptions, on peut considérer que La plupart des nots sont des adjectifs. Cette "règle" 
cest assez sûre car une analyse des sots Forth aontre que les ADJECTIFS sont deux fois plus nonbreux que toute autre 
“espèce de not. De plus, si on étend La table 2 pour y inclure des mots INCONNUS, l'arrangeñent des "+" et des “-* pour 

ces colonnes et rangées. INCONNUS 5e trouvent être identiques à ceux des ADJECTIFS: le phragé n'y voyant aucune diffé- 
rence, ces mots INCONNUS peuvent donc être traités conne des ADJECTIFS, 


Phrasé automatique. 


Nous possédons désorsais un ensenble raisonnable et coaplet de règles applicables au phrase. Nous en 
savons assez pour construire un algorithne, nous épargnant peut-être beaucoup de frustration en édition d'écran. 

L'iaplantation d'un "phraseur" automatique peut se faire de différentes façons. On peut par exenple créer 
un nouveau vocabulaire (nommé PRETTV-PHRASER) contenant tous les nons de aots explicitement déclarés comme NDM, 
ADJECTIF, VERBE ou INTERJECTION, Une autre approche serait d'ajouter une petite structure à la définition des aots du 
dictionnaire. Ceci peut être fait facilenent, trois bits au plus sont nécessaires pour faire la sélection à partir des 


a 
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connus. Dans le modèle F82 de Laxen/Perry, : sation peut être placée dans quelques hits inutilisés du chan 
VIER, à moins que vous ayez plus de 512 blocs dans vos fichiers source, 
iNdT: le chang VIEN donne le nunéro d'écran contenant ia définition du mot qui le suit, ainsi due sa 


Dans tous las cas, pendant Le "Fretty-Frinting", cette information est accessible et des 
être insérés conveñatienent selon les régles énoncéec ci-dessus, 

Flutôt que d'entrer les genres des nots à la main, on peut construire un nalyseur grañmat 
exaginant les commentaires des diagranaes de pile dans chaque définition, Cet analyseur ect appelé soit SQuE 
PRETTV-FHRAGER est actif, soit pendant la conpilation du not dans le dictionnaire, cela dépendant de l'implantation du 
"phrasé". Conne Le nombre d'articles sur la pile n'intervient pas, la présence ou l'absence de caractères de chaque 
.côté des "--" donne toutes les informations nécessaires pour convertir la table À directement en c Forth, 
| I y aura toujours des exceptions, mais aucune ne sera sans remède, Four ceux n ‘ayant las diagrammes 

de pile dans les écrans-source, le cas par défaut serait L'ADJECTIF pour les raisons déjà exposées, VARIABLE et CONSTANT 
peuvent être traitées soit par du code ajouté aux définitions elles-nênes, soit spécialement dans le PRETTV-PHRAGER 
lorsqu'elles se présentent. 


FE 


Hs 
pi 
| si à 

os 
Den 
ur 
va 
ue 
Ée 


äc 
onde 
pä 


à5 


Quelques apglications, 


Ayant êté réduit à un petit nombre de règles, et étant automatisé, le phrasé 
lus dans la liste des 


subjectif", L'approche donnée ici peut devenir un article de alu 
avec des retombées insoupoannées,. 

En plus des Listings, le phrasé automatique peut nettoyer des écrans surchargés par de multi iples éditions 
et devenus illisibles. Cela demande du soin car certains blocs vont "pretty-phraser" plus de 16 lignes, Ce ae 5i 
seule l'impression sur papier est désirée, les blocs Forth peuvent être comprinés au maximum tant qu'un ° ï 
ser" est disponible pour "déconprimer" le source, 

51 la documentation accompagnant un progranne Forth est de la 
espaces supplémentaires peut être utilisé pour diriger les orogrammeurs | 
conentaires peuvent être placés, 

Et pour ceux faisant un usage intensif du décoñpilateur Forth, la sortie d'un tel déconpilateur peut être 
utilisée pour exposer le travail interne du système. Quel autre langage opérant sur Le système peut en faire autant E 


e lnportance, l'emplacement des 
ipuleux vers des endroit 


Une série de petites routines nous a été afmablement commu- Le mt CASE:; les structures de case constituent une exten- 
niquée par un de nos adhérents, Mr G. SOULA. Ces routines sion des variables de vectorisation par la création d'un 
sont applicables à la mjorité des systèmes existants, Cer- tableau vectorisé, 

taines, bien que diffusées sans aucun commentaire, ne de- 


vraient poser guère de difficulté de comréhension. CASE: est un mt de définition qui va: 
- créer un nouveau mot et stocker le cfa des mots qui 


suivent jusqu'au mot ; 
Références: - à l'exécution, cd y a vectorisation sur le numéro de la 
Difficulté de programmation: moyenne structure de case. 
Catégorie: utilitaire 
Difficulté d'exercice: moyenne Exemple: O ETAT-CIVIL affiche Monsieur 
1 ETAT-CIVIL affiche Madame etc... 


L'exercice: 


L'execut ion vectorisée permet de faire faire à un même 
mot différentes choses. ( EXECUTION VECTORISEE ) 


2EXECUTE ( ad + ) à ?DUP 
IF EXECUTE THEN : 


Le programe: 

Le principe de la vectorisation est qu'au lieu d'invo- 
quer un mot pour le faire exécuter, on fait EXECUTE sur le 
cfa de ce mt, ce cfa pouvant être contenu dans une varia- 


ble. VARIABLE ACTION 


-.“ Monsieur Û 
." Madame “ : 


DOUNTUEMUNe EC 


Le mot(@EXECUTE lit le contenu de la variable de vectorisa- 

tion et effectue la vectorisation à condition que le cfa ne 

soit 0. ." Mademoiselle " : 
." Enfant " : 


L'exemple classique peut se schématiser afnsi: à partir 


d'une variable ACTION on peut faire afficher plusieurs tex- ETAT-CIVIL ACTION 9EXECUTE : 
tes différents: NOW LCCOMPILEI ? CFA ACTION ! : 


NOW MR ETAT-CIVIL affiche Monsieur 


NON ME ETAT-CIVIL affiche Madame etc. 'EXECUTTON" VECTORISEE > 


Une application plus intéressante est un générateur de rè- VARIABLE RULE 


gles où RULE est la variable de vectorisation: PREGLES ." Voulez vous voir les regles O/N?" O/N 


?REGLES demande si on désire voir les règles du jeu, IF RULE OEXECUTE THEN ; 


77 Si oui, les règles sont affichées, 


si non, on passe au jeu. tRULE € pfa —- ) CFA RULE ! 3: 


DUYUTUMBEUNEeC 


JRULE transforme le pfa en nfa et le stocke dans RULE. 
Sarte page ÀG 
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FORTH Le langage BLAISE, dernier épisode par E. AUBOURG 


REALISATION D'UN COMPILATEUR BLAISE Q SLA 
O DLA 
à variables A 
ce compilateur sera réalisé en utilisant l'ana- SLB 
lyseur précédemment dévellopé comme squelette et DLB 
en insérant les instructions de génération de variables B 
code objet. celui-ci sera du FORTH compilé. SLC 
DLC 
on utilise alors deux variables supplémentaires: variables C 
SLB'" Lastbase 
ADR qui contient le pfa du dernier identifica- DLB" 
teur de procédure lu, ou le numéro de la der- variables B 


nière variable. 
Une adresse de variables contient donc la diffé- 


NUM qui contient la valeur du dernier litéral rence de niveau (pour exemple, 1 pour une Varia- 
ou de la dernière constante ou bien le niveau de ble de B appelée par C) et le numéro de cette 
la dernière variable. variable dans son bloc. La procédure BASE permet 

de remonter la chaîne des SL. 
Le seul point appelant des commentaires est la 
gestion des niveaux des procédures, avec Îles Il est possible maintenant d'exécuter un petit 
variables locales et la possibilité de récursi- programme Blaise: les tours de HANOI. Pour ceux 
vité. qui ne connaissent pas ce grand classique, en 

voici le principe: il faut déplacer n anneaux de 
Les variables sont stockées sur la pile, pour diamètres décroissants d'un piquet sur un autre 
permettre une gestion dynamique (les variables en utilisant un troisième piquet. On ne peut 
existent seulement pendant l'activation de la déplacer qu'un anneau à la fois, et ne le poser 
procédure correspondante: il faut donc bien les que sur un anneau de plus grand diamètre. 
distinguer du mot déclaré par DEFVAR qui ne sert 
que durant la compilation), avec une structure Après avoir rentré le programme, il suffit de 
de liste chaînée. On a en fait deux chaînes de faire 1 PROGRAMME HANOÏI pour le compiler, puis 
pointeurs: les pointeurs dynamiques (DL= Dynamic aprés le message “COMPILATION TERMINEE", faire 
Link), qui rendent compte de l'ordre chronologi- HANOI n pour le lancer. Les anneaux sont 
que des allocations, et les pointeurs statiques initialement sur ie piquet numéro 1, et à la fin 
(SL) qui rendent compte des niveaux de procé- sur le numéro 2. Les couples affichés donnent le 
dure. prenons un exemple: soit le programme piquet de départ et le piquet d'arrivée de 

l'anneau à déplacer. 

Procédure A ; 

Procédure B ; | Le BLAISE n'accepte pas d'argument pour les 
Procédure C ; procédures mais l'utilisation de variables 
Begin (€ C ) globales permet de pallier ce défaut, comme vous 
; B ( récursif ) ... le vovez dans HANOI. 
End € C ) 
Begin ( B ) Fin (pour l'instant 
... Call C ... Eric AUBOURG 
End ( B ). 
Begin ( 4 }) 
... Call B 
End ( À ) 
A est de niveau 1, B de niveau 2 et C est de 
niveau 3. Aprés l'appel récursif de B par C, la 
structure de la pile est la suivante: 


| SCR # 18 
{ ##*% COMPILATEUR BLAISE 1 ##% ) 


VOCABULARY MOTRESERVES MOTRESERVES DEFINITIONS 
CONSTANT BEGIN 2 CONSTANT CALL 
CONSTANT CONST 4 CONSTANT DO 
CONSTANT END 6 CONSTANT IF 
CONSTANT ODD 8 CONSTANT PROCEDURE 
CONSTANT THEN 19 CONSTANT VAR 
CONSTANT WHILE 12 CONSTANT 
CONSTANT WRITE 15 CONSTANT 
CONSTANT := 18 CONSTANT 
CONSTANT 29 CONSTANT 
CONSTANT 22 CONSTANT 
CONSTANT 24 CONSTANT 
CONSTANT 26 CONSTANT 
CONSTANT 28 CONSTANT 


VON EU NN» Q 
2 
m 
> 
5 


AA XKX + — 


# 19 e 
( KK* COMPILATEUR BLAISE 2 #%X## ) 
14 CONSTANT ( 16 CONSTANT , 
29 CONSTANT . ‘39 CONSTANT --> 
FORTH DEFINITIONS 
S VARIABLE ADR : S VARIABLE NUM 
7? MOTRESERVES CONSTANT LIMITUQC 
? ERREUR 
." ERREUR h" . BLK @ ." BLOC #" . IN @ 64 / ." LIGNE #4" 
« CR HERE COUNT TYPE QUIT ; 
GETSYM 
DROP -FIND 
IF DROP CFA DUP LIMITUOC > ELSE 9 DUP THEN 
IF EXECUTE DUP 39 = 
IF CCOMPILE] --> [ SMUDGE ] GETSYM [ SMUDGE J THEN 


=) 


En N°28 - Cfobre 1386 


* 29 
( ##Y# COMPILATEUR BLAISE 3 XX% ) 
ELSE 
DROP HERE NUMBER DROP NUM ! 31 
THEN 3 
? DEFCONST ( LEVEL SYM --- LEVEL PFA SyM ) 
<BUILDS HERE SWAP 9 , 
DOES> @ NUM ! 33 ÿ ( VALEUR -> NUM, --- 33 ) 
: DEFVAR ( LEVEL # SYM ) 
<BUILDS >R OVER OVER , , R> ( EXEC : # -> ADR, ) 
DOES> DUP @ ADR ! 2+ @ NUM ! 32 3 ( LEVEL -> NUM, --- 32 ) 
DEFPROC { LEVEL SYM -- PFA LEVEL SYM ) 
<BUILDS HERE ROT ROT & , OVER , 9 , 
DOES> ADR ! 34 j { PFA -> ADR, --- 34 } 
© VARIABLE LASTBASE 
CREATE SPSTO ( N --- |, N->SP ) 
HEX F9ELl , E9FD , DECIMAL SMUDGE 


be pe De De be de 
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XX#X COMPILATEUR BLAISE 4 XXX ) 

BASE ( LEVEL APPELANT-APFELE --- ADRESSE ) 
LASTBASE @ SWAP DUP 5 > 
IF 9 DO @ LOOP 
ELSE DROPF THEN ; 

APPEL ( ARGUMENT COMPILE PFA , LEVEL APPELANT ) 
R> DUP 4 + >R DUP 2+ @ SWAP @ ( LEVEL PFA ) 
DUP DR 2+ @ - BASE LASTBASE @ 2 - { POINTEURS SL DL ) 
SP@ DUP 2+ LASTBASE ! R 4 + @ - SPSTO 
R> @ EXECUTE 
LASTBASE @ 2 - SPSTO 2+ LASTBASE ! DROP ; 
(RELVAR)I { ADR DLEV --- VALEUR ) 

BASE SWAP - @ 3; 

RCLUAR ( LEVEL SYM ) 

COMPILE LIT ADR @ , COMPILE LIT OVER NUM @ - , 
COMPILE (RCLVAR) 3} ——> 


… # 
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22 
#K# COMPILATEUR BLAISE 5 ### ) 
STOVAR ( VAL ADR LEV --- }) 
BASE SWAP - ! 3 
INPUT 

BEGIN 

BL WORD HERE 1+ C@ 9= 
WHILE 

QUERY 

REPEAT 

HERE NUMBER DROP 3} 


FACTEUR ( LEVEL SYM ) 

DUP 31 = OVER 33 = OR 

IF COMPILE LIT NUM @ , GETSYM ELSE 
DUP 32 = IF RCLVAR GETSYM ELSE 

DUP 34 x IF 21 ERREUR ELSE ==? 


23 
X#% COMPILATEUR BLAISE 6 #X%+% ) 
DUP 14 = IF GETSYM [ HERE SP@ 18 + ! 9 , 
15 - IF 22 ERREUR THEN DUP GETSYM 
ELSE 23 ERREUR 
THEN THEN THEN THEN 3 
TERME ( LEVEL SYM ) 
FACTEUR 
BEGIN | 
DUP 29 = IF 1 DR R ELSE 
DUP 21 = IF 9 DR 1 ELSE 
9 THEN THEN L 
WHILE 
GETSYM FACTEUR R> 
1F COMPILE %# 
ELSE COMPILE / THEN 
REPEAT  ; --> 


VDOURDULUNEEQ 
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# 24 
g © #x#x COMPILATEUR BLAISE 7 XK# ) 
1 : EXPRESSION { LEVEL SYM ) 
2 DUP 18 = IF GETSYM 9 ELSE 
3 DUP 19 = IF GETSYM 1 ELSE 
4 9 THEN THEN ?R 
s TERME 
6 R> IF COMPILE MINUS THEN 
? BEGIN 
8 DUP 18 = IF 1 DR I ELSE 
9 DUP 19 = IF D ?>R 1 ELSE 
19 9 THEN THEN 
11 WHILE 
12 GETSYM TERME R> 
13 1F COMPILE + 
t4 ELSE COMPILE - THEN 
is REPEAT 3} " EXPRESSION CFA SWAP ! 2 


# 25 


 t ###% COMPILATEUR BLAISE 8 XK% ) 

1 : CONDITION { LEVEL SYM ) 

2 DUP 7 # 

nI 1F GETSYM EXPRESSION COMPILE 2 COMPILE MOD 
4 ELSE EXPRESSION 

S DUP 22 < OVER 27 > OR 

6 IF 29 ERREUR THEN DR 

7 DUP GETSYM EXPRESSION R> 

8 CASE 

9 22 OF COMPILE = ENDOF 

is 23 OF COMPILE > ENDOF 

11 24 OF COMPILE < ENDOF 

12 25 OF COMPILE = COMPILE @= ENDOF 
13 26 OF COMPILE > COMPILE 9= ENDOF 
14 27 OF COMPILE < COMPILE 9= ENDOF 
15 ENDCASE THEN 3 > 


# 26 
a #X# COMPILATEUR BLAISE 9 KX## ) 

i INSTRUCTION { LEVEL SYM ) 

2 t SMUDGE 1 DUP 

3 CASE 

4 42 OF ADR @ NUM @ DR DR GETSYM 17 - 
s IF 13 ERREUR THEN 
6 

? 

8 

9 


CES 


DUP GETSYM EXPRESSION COMPILE LIT R2 3 
COMPILE LIT OVER R> - , COMPILE STOVAR ENDOF 
33 OF 12 ERREUR ENDOF 
34 OF 12 ERREUR ENDOF 


19 2 OF GETSYM DUP 34 = 

11 IF COMPILE APPEL ADR @ , OVER ,; GETSYM 

12 ELSE 14 ERREUR THEN ENDOF 

15 6 OF GETSYM CONDITION CCOMPILE]I IF 2R >R DUP 9 = 
14 1F GETSYM INSTRUCTION R> R> COMPILE) ENDIF 


ELSE 16 ERREUR THEN ENDOF --2 


# 27 


9 ( *k# COMPILATEUR BLAISE 19 KK# ) 

i 11 OF CCOMPILE) BEGIN >R >R GETSYM CONDITION DUP 4 = IF 
2 GETSYM COMPILE) WHILE 2R 2R INSTRUCTION R> R> R2> ROT 
3 ROT R> ROT ROT ICOMPILEI REPEAT 

4 ELSE 18 ERREUR THEN ENDOF 

5 1 OF GETSYM BEGIN INSTRUCTION DUP 268 = WHILE GETSYNM 

6 REPEAT DUP 5 - IF 17 ERREUR THEN GETSYM ENDOF 

7 ENDCASE 

8 DUP 12 æ IF 1 1 ELSE DUP 13 æ IF © 1 ELSE @ THEN THEN 

9 IF DR GETSYM DUP 14 - IF 25 ERREUR THEN 

18 GETSYM 

11 BEGIN DUP 32 - IF 42 ERREUR THEN 

12 I IF COMPILE INPUT COMPILE LIT ADR @ , 

13 COMPILE LIT OVER NUM @ - ,; COMPILE STOVAR 
14 / ELSE RCLVAR COMPILE . THEN 


GETSYM DUP 16 = 2 
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[ 


H# COMPILATEUR BLAISE 
WHILE GETSYM 
REPEAT R)> DROP 
DUP 15 - IF 22 
GETSYM COMPILE 
BLOC { LEVEL SYM ) 
SWAP 1+ SWAP L SMUDGE- ] 
DUP S = { CONSTANTE ) 
IF BEGIN 
DEFCONST { LEVEL PFA SYM ) 
GETSYM DUP 22 - 
GETSYM S1 - IF 2 ERREUR THEN 
NUM @ SWAP ! 9 GETSYM DUP 16 


11 #XX ) 


ERREUR THEN 
CR THEN #5 


UNTIL 
DUP 28 - 


THEN 2 DR +2 


# 29 
( #KX COMPILATEUR BLAISE 12 %XX% ) 
DUP 19 = { VARIABLE ) 
IF RD SWAP  ( LEVEL # SYM ) 
BEGIN 


SWAP 2+ SWAP DEFVAR GETSYM DUP 16 


UNTIL SWAP DR { 
DUP 28 - 
THEN 
BEGIN 
DUP 8 = € 
WHILE 
DEFPROC € 
GETSYM 28 - 
LATEST >R g 
DUF 28 - 
REPEAT 


# VAR SUR RS 


PROCEDURE ) 


PFA LEVEL SYM ) 
IF 5 ERREUR THEN 


=) 


#4 39 


U #K#% COMPILATEUR BLAISE 13 #%%#% ) 
ROT HÈRE OVER ! 4 + R> 2 - SWAP 
T 5 18 + ) LITERAL , 
INSTRUCTION COMPILE 35S 
SWAP 1 - SWAP ÿ SMUDGE 


t 


) 


CCOMPILE) 1] 


IF S ERREUR THEN GETSYM 


IF S ERREUR THEN GETSYM 


1F 3 ERREUR THEN 


GETSYM BLOC R> CURRENT @ 
IF S ERREUR THEN GETSYM 


SMUDGE 


INIT 9 SP@ LASTBASE 
R> @ EXECUTE CR ." E 
PROGRAMME  { H#BLOC -- 
HERE © , 9 , 8 , (CO 
CCOMPILEJ ; SUWAP 

BLK @ DR IN @ DR B/S 
MOTRESERVES DEFINITI 
S DUP GETSYM BLOC 29 
DROP (COMPILE) FORTH 
RD IN ! R> BLK ! ," 


# 1 
VAR N , I , J 3 
PROCEDURE DEPLACER 3; 
VAR N1 , Il , J1 ; 
BEGIN 

IF N = 1 THEN WRITE ( 

IF N > 1 THEN 

BEGIN 

11 


Ni= 1 3; J: 

DEPLACER 
N = N1 - 1 ; 
DEPLACER 


--) 


# 2 

BEGIN 
READ (€ N ) ÿ$ I := 1 ; 
CALL DEPLACER 

END . 


! S R> DUP 2+ DR @ DR SPE R 4 + @ - 
XECUTION TERMINEE" SP! ; 

- PROGRAMME NOM ) 

MPILE] : COMPILE INIT DUP , 


CR % BLK ! 9 IN ! 
ONS CR CCOMPILEJ 
— IF 9 ERREUR THEN 
DEFINITIONS CCOMPILEI [LC 
COMPILATION TERMINEE * 


1, J)3 
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FORTH Pius et mieux pour fanas de PC,XT,AT par Y. BESOMBES 


l 


2 code L! ds ax mov dx pop dx ds mov bx pop 0 *bxé 


3 


SD CN 


— — 
Nm © QG M NE OU RUN — © 


— 
2 (4 


pen 
en 
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é 
0 { routines machine pour echanges memoires extra segsent | 


{ ong-store,long-peek,log-move | 


9 
{ fonction case #83 } 
$ ? case csp à 'csp 3j imsediate 
: of compite over compile * compile ?branch )sark 


pop ax ds mov next ci { val adr2 seg2 ---- | compile drop ; immediate 
code lc! ds cx mov dx pop dx ds mov * endof compile branch Dmark swap 

bx pop ax pop al 0 *bx$ mov x ds mov next ci { ide | dresolve ; iamediate 

hex 4000 constant video decimal : endcase conpile drop begin spà csp à ©) while 

code là ds ax sov dx pop dx ds mov { adr2 5eg2 --- val } dresalve repeat csp ! j; imsediate 

bx pop © ‘bxS push ax de nov next ci : jour case cis 1 of .* Lundi” endof 2 of .” Kardi" endof 
code Icà ds cx mov dx pop dx ds nov Uides ) 3 ot .” Mercredi” enduf 4 5f ." Jeudi endof 

bx pop ax ax sub © "bx$ al mov ax push cx ds mov next ci 5 of ." Vendredi” endof 6 of ." Sagedi” endof 


A 


! videoà video 1à 64 - ; 7 of .' Dinanche” endof endcase 
! bikà ser à block : l'as) 
!0 load !! load 
--) 
7? 10 

? a-ser ser ! pute j : esc 27 emit { routine affichage et lecture d’une chaine sur ecran } 

» saveur esc 106 emit ; : setcur esc 107 enit : { chaine definie par adr 1gr,ligne et col!positions sur ecran } 
: m0." "y tai." INSERT " : ( ADR LGR LIGNE COL ------ } 

1 boucle 135 at begin ( boucle editeur pleine page | 1 adrr L- 2 4 swap 1- 160 # # ÿ Ü Lign col---0ffset | 

key dup case 131 of est 68 emit endof (ar ) { VRITE adrr SWAP 24 rot swap 0 DO 2DUP 


13 of esc 76 esit endof 


12/ + Ca 64 + SVAP VIDEO SWAP I + swap L' 2 +LO0F 2DROP ; 


132 of esc 66 emit endof {up } { adr Igr ligne col ------ } 


127 of esc 78 enit endof 
133 of esc 67 emit endof 
144 of saveur 70 [ at a0 setcur 
134 of esc 65 emit endof 
18 ct saveur 70 1 at mi setcur 


! get adrr swap 2# 0 do 2dup 
ji + video swap i 2 / + c! 2 +loop Zdrop 
esc 79 enit encof 


esc 64 enit endof 


146 of esc 77 esit endof endcase 
dup 127 © if dup emit then 149 = until ; 
1 cadre 12 4 at 64 ! do 196 emit Ioop !2 21 at 66 1 do 196 enit 


Josp ÿ ! edmind 77 14 2! 6 mindow 


6 


1) 


[ei 


{ editeur pleine page avec acces direct mescire ecran âpricot 1 {ecriture lecture ecran video d'un block forth 1024 octets | 
variable ino ! m5 { at ," no : "; : pute 22 6 do i 6 - 64 blkà + 64 i 14 write loop i 

satttat." Ecranno!" ,{ :n2 123 at ." copie" ; : get-e 22 6 do i 6 - 64 # bIkà + 64 i !4 get loop : 

: ecr cls nl cadre eduind a-scr boucle m2 get-e esc 79 esit ; 

: put update flush ÿ : getno cls e5 query interpret ; 

‘az ltat.” Edit Gluit Write "3; 

: edit cls 


begin 3 key dup 101 = if getno dup ecr endnind cils then 
dup 119 = if put then 
{13 = until cls ; 


{ fin editeur 


écran 6: gestion extra segment 
écran 9: case-of-endof-endcase 
écran 7-8 et 10-11: éditeur pleine page 

pour APRICOT PC (et SIRIUS peut-être...) 
écran 28-32: routines graphiques GSX sous MSDOS 
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TR UAUNr= © D NO AN D ON) = © 


SG RUN —= © 


= = 
AV — © ‘a © 


—_ 
on = 


ADIEU = © 


{ ADR LGR LIGNE COL 
. adrr {- 2 # suap 1- 160 F +; 
: NRITE adrr SWAP 24 AF O DC 2DUP 

[2 / + Cà 64 + SVAP VIDEO SWAP I + suap L' 2 tLOOP 2DROP ; 


{ 


{ 


12 


= |: AF ROT SWAP ; 


{ lign col---adress } 


adr Îgr ligne col 


: get adrr swap 2F O0 do 2dup 


Îi + videcà swap i 2 / + c! 2 loop Zdrop ; 


13 
Iong-sove Icaove!dataseg-}a2! 52 ilcmove}:a2:s2-)dataseg 


variable tp 100 allot 


{ 


adri noctets adr2 seg2 
Icxove rot 0 do 3dup rot i # cà rat i + rot ic! locp ; 
Icaove) rot O do Jdup smap i + Swap Îcà swap i + c! ]gop ! 
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( EXTENSIONS GRAPHIQUES GSX) $ 


n 
. 
nl 
ou 


+ 
' 


VARIABLE CONTRE 20 ALLOT VARIABLE INTIN 160 ALLOT 

VARIABLE TABLE 200 ALLOT VARIABLE PTSIN 200 ALLOT 

code intgsx cx pop dx pop 224 int next ci 

VARIABLE PTSOUT 200 ALLOT VARIABLE INTOUT 90 ALLOT 
ADR PTSOUT INTOUT PTSIN INTIN CONTRL ; 

int224 table 1139 intgsx ; 

G6SX 20 2 DO DSEG TABLE I # ! 4 +LOOP 

ADR 20 O DO TABLE I # ! 4 4LOOP INT224 : 

CONTRL! CONTRE ©! ; 

CONTRL2 CONTRL 24 ! ; 

CONTRL4 CONTRE 6 + ? ; 

INTINI INTIN !; 

PTSINI PTSIN !; 
PTSIN4 PTSIN 6 # ! ; 


: PTSIN2 PTSIN 24 !$ 
: PTSINS PTSIN 8 + ! ; 


--) 


0 


0 CONSTANT ATTRIBUT 


3 
6 
8 


29 
CONSTANT CMD 2 CONSTANT CL : INTIN2 INTIN 24 ! ; 
‘ INTINS INTIN 4 # ! ; 
CONSTANT CLR % INTIN4 INTIN 6 # ! ÿ : INTINS INTIN 8 # ! ; 
CONSTANT PLINE : INTIN6 INTIN 10 + ! ; 
CONSTANT TEXT : PTSINS PTSIN 4 # ! ; 
PTSIN7 PTSIN 12 + ! ; : PTSINé PTSIN 10 + ! ; 
PTSINS PTSIN 14 # ? ; : ENTIN7 INTIN 124 !:; 
PTSINS PTSIN 16 + ! ; : INTINS INTIN 14 + ! ; 
PTSINIO PTSIN 18 # ! ÿ : [NTIN9 INTIN 16 # ! ; 
INTIN1O INTIN 18 # ! ÿ : CONTRL3 CONTRL 4 + ! ; 
CLEAR CLR CONTRLI O CONTRL2 68 ; 
EXT CL CONTRLI O CONTRL2 66X ; 
CONTRLS CONTRE 10 + ! ; 
INIT CLEAR ! CONTRE! O CONTRL2 10 CONTRLA 1 INTINI 1 INTINZ 
LINTINS ! INTIN4 1 ENTINS ! INTINé 1 INTIN7 1 INTIN9 
L'INTINS L INTINIO GSX ; --) 


." c'est smoi° 


6 


0 
coucou” 


cr 


0 

coucou" cr 

c'est moi” 

30 

0 

2 

3 

4 

S + LINETYPE INTINI 15 CONTRLI O CONTRL2 GSX ; 

6 : LINECOLOR INTINI 17 CONTRLI O CONTRL2 GSX ; 

7 1 LINEMARKER INTINI 18 CONTRLI O0 CONTRL2 6SX ; 

8 

9 : INITAB CONTRL 20 O FILL ," OK* INTIN 160 0 FILL .” ok" 
10 TABLE 200 © FILL ." OK" PTSIN 200 0 FILL ." OK" : 
il 
12 : PT 20 O DO PTSIN I + ? 2 #LO0P : 
13 * IN 20 O DG INTIN I + ? 2 +LOOP : 
14 : CTL 20 © DO CONTRE I + ? 2 #LOOP ! 
15 --) 


Ji 

LINE DUP CONTRL2 4 # O DO PTSIN I + ! 2 +LOOP 6 CONTRL! 
SX 5 : DOT 2DUP 2 LIRE ; 

CIRCLE PTSINS PTSIN2 PYTSINI {1 CONTRLI 3 CONTRL2 4 CONTRLE 
65% ; 


: NARKER DUP CONTRL2 4 # O DO PTSIN 1 + ! 2 +LOGP 7? CONTRLI 


68X ; 

attribut des polysarkers } 

ATTRIB INTINI CONTRLI O0 CONTRL2 G65X ; 

HOLLOW 23 O0 ATTRIB ; ‘ SOLID 23 ! ATTRIRB ; : HATCH 23 3 
ATTRIB ÿ : VERT 24 { ATTRIB ; : HOR 24 2 ATTRIB ; 

DOTC 18 1 ATTRIB ; : ASTERIX 18 2 ATTRIR ; : CIRC 18 4 
ATIRIB }; 


: SOL 15 L ATTRIB ; : DASH 15 2 ATTRIB ; 
: LOÔT 15 3 ATTRIB ; 


: 
” 


cr .( HÉGSXEE) cr 


32 
EX2 INIT HOR HATCH 20 £ DO 1000 1 # 1000 I & 360 I # CIRCLE 


2 #LOOP SOLID 20 1 DO 1000 1 # 32000 1000 I & - 360 


{ 


1 # CIRCLE 2 +LOOP HATCH VERT 20 1 DO 32000 1000 1 # - | 
000 I # 360 I # CIRCLE 2 +LOOP HOLLOW 20 1 DO 32000 1000 I # 
32000 1000 I # - 360 I # CIRCLE 2 +LOQP KEY EXT ; 


11 
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FORTH PRISE DE CONTACT AVEC 


Dans toute science, le besoin de faire référence 
à un fond de connaissances commun est resté une 
préoccupation majeure. La science informatique 
n'échappe pas non plus à cette nécessité. Mais 
plus que partout ailleurs, dans un domaine où la 
progession entre les générations est mesurée en 
années, voire en mois, et non en décénnies, 
imposer un standard reste une gageure. 


C'est ce pari insensé que relèvent deux améri- 
cains, Laxen et Perry, en proposant un système 
de développement complet à l'ensemble de la 
communauté FORTH internationale. Ce système, au 
standard 83, est diffusé dans le domaine public, 
ce qui est à notre avis, ia meilleure garantie 
contre toute reproduction illicite, les auteurs 
poussant la délicatesse à encourager la repro- 
duction sous toutes les formes et par tous les 
moyens de leur oeuvre. 


LE FORTH 83-STANDARD SOUS CP/M 
cette version, disponible sur tous les systèmes 
tournant sous CP/M 2.2 et MSDOS, est diffusée 
généralement sous forme de disquette, dont le 
contenu sous CP/M est le suivant: 


F83 . COM KERNEL -HEX 
META80 .BQK EXTEND80 .BQK 
UTILITY .BQK DIRECT . BQK 
README . TXT Usa . COM 


Le premier fichier, ‘F83.COM', est le programme 
FORTH principal. 11 contient sous forme compilée 
le contenu des fichiers *UTILITY', ‘EXTEND80' et 
‘'META80'. Sous MSDOS, le fichier ‘F83.COM' est 
nommé ‘ RUNME.COM". 


LA DECOMPRESSION DE FICHIERS SOUS CP/M 
Les fichiers d'extension ‘BQk' contiennent les 
programmes source, sous forme compresssée, à 
partir desquels a été réalisée la génération du 
programme ‘F83'. Pour pouvoir lire et compiler 
leur contenu, il est donc nécessaire de les 
décompresser. Pour cela, taper sous CP/M: 


USQ nomfichier.ext 


Le fichier à décompresser doit étre un fichier 
de type compressé. Pour exemple, la commande 
‘UsQ F83.COM' n'est pas valide. 


Un fichier décompressé par ‘usa' prend l'exten- 
sion ‘fichier.BLk'. Son contenu peut dorénavant 
ètre lu sous FORTH en tapant ‘OPEN fichier.BLk' 
où ‘fichier’ correspond au nom des fichiers qui 
ont été décompressés. Exemple: 


OPEN DIRECT.BLK 


puis la lecture de son contenu par ‘n LIST', où 
n est un numéro de bloc. 


LA META-GENERATION 

Le système 83-Standard a été généré de manière 
tout à fait révolutionnaire: il a été ‘méta- 
compilé’ et non assemblé. Cette méthode consti- 
tue en effet une nouveauté dans le monde de la 
micro-informatique, car réservée jusqu'alors aux 
gros systèmes. La méta-compilation, en FORTH, 
consiste à créer un noyau de base à partir d'un 
programme source traité par FORTH lui-même. A 
partir de ce noyau, une nouvelle version peut 
être compilée. Mais on peut aussi compiler une 
application spécifique. Pour peu que le program- 
me en question soit standard, il pourra s'exécu- 
ter sur n'importe quel système, ce qui est le 
cas des programmes sources écrits en 83-Stan- 
dard, lesquels tournent, pour exemple, aussi 
bien sur AMSTRAD que sur IBM et compatibles. 


Ce souci de la portabilité a été poussé à l'ex- 
trème avec le programme ‘F83.COM' qui a pu être 
transféré sur à peu près tous les systèmes tour- 
nant sous CP/M 2.2, y compris des systèmes aussi 
exotiques que le BONDWELL 2 ou la série AMSTRAD 
De nombreuses défini- 


tions, vectorisées avec le système profond, 
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peuvent voir leur comportement modifié de ma- 
nière très simple: 


nouveau-vecteur 
définition ... ; 
* nouveau-vecteur IS vecteur 


Ces altérations peuvent porter sur à peu près 
l'ensemble du système de gestion des entrées 
sorties. 


LE NOYAU FORTH 


Le fichier ‘KERNEL.HEX' résulte de la seule 
méta-compilation du .contenu du fichier 
*META80.BLK'. Ce fichier est fourni au format 
‘.HEX', ce qui permet son transfert entre deux 
systèmes par modem ou RS232 à l'aide de la seule 
commande PIP sous CP/M. 


pour pouvoir être exécutable, ii doit être con- 
verti en fichier ‘.COM’ en tapant la commande 
‘LOAD KERNEL.HEX' sous CP/M. Maintenant vous 
pouvez démarrer ‘KERNEL', ce qui vous met sous 
FORTH. 


L'exécution d'une nouvelle méta-compilation se 
fait en spécifiant à la suite de KERNEL Île 
fichier d'origine de votre version FORTH person- 
nalisée. Exemple: 


KERNEL EXTEND80.BLK 
START 


sous CP/M, puis 
sous FORTH. 


Une nouvelle génération de FORTH, telle qu'elle 
est définie précédemment fait appel successive- 
ment au contenu des fichiers ‘EXTEND80.BLK', 
‘CPU8080.BLK' et *UTILITY.BLK'. La méta-compila- 
tion ne pourra s'exécuter correctement que si 
tous ces fichiers figurent sur le même disque 
actif. Si la capacité des disquettes de votre 
système est insuffisante, il faudra apporter 
quelques modifications dans les blocs 1 et 13 du 
contenu du fichier ‘EXTEND80.BLK' afin de per- 
mettre le changement de disque en cours de com- 
pilation. 


Le problème de limitation de la capacité du 
disque actif risque d'être évidente avec le 
fichier ‘META80.BLK'. En effet, une fois décom- 
pressé, celui-ci fait au moins 220Koctets. Ce 
cas se présente. nottament pour les systèmes 
AMSTRAD CPC dont la capacité disque est de 
180Koctets au maximum. Mais la nécessité de 
décompresser le contenu de ‘'META80.BQK' n'a pas 
de caractère d'urgence, car le fichier ‘KERNEL' 
résultant de la compilation de ‘META80' est à 
votre disposition et peut être manipulé sans 
problème. 


F83 ET 83-STANDARD 


Pour démarrer FORTH depuis CP/M, il faut taper 
‘F83', et sous MSDOS ‘RUNME'. Pour les systèmes 
AMSTRAD CPC, il faut d'abord taper ‘CPM' précédé 
de la barre verticale pour passer sous CP/M. 
N'oubliez pas de charger au préalable votre 
disquette système. Au démarrage, FORTH se pré- 
sente, sous CP/M, en affichant: 


8080 Forth 83 Model 1.0.0 
Modified 160ct83 


Pour taper votre première commande, passer en 
mode majuscules, puis essayez ‘WORDS', ce qui 
correspond au "VLIST' des standards FIG et 79- 
STANDARD. L'appui sur une touche quelconque 
interrompt l'édition du contenu du dictionnaire. 


A première vue, ce vocabulaire est très riche. 
pour visualiser le contenu des autres vocabu- 
laires, il faut taper le nom du vocabulaire 
concerné suivi de ‘WORDS’. Les noms des diffé- 
rents vocabulaires sont listés par la commande 


‘vOCS', ce vous affiche: 


SHADOW EDITOR HIDDEN BUG FILES CP/M ONLY USER 
ASSEMBLER 


Ces vocabulaires contiennent des utilitaires 
spécifiques à certaines tâches, telle l'édition, 
la gestion des écrans commentaires associés, Île 
décompilateur, le débuggeur, l'accès au disque, 
etc... 


Si vous avez déjà une certaine expérience des 
systèmes FORTH au standard FIG ou 79-STANDARD, 
vous aurez l'impression de vous sentir un peu 
perdu dans ce nouveau système qui ne compte pas 
loin de mille mots, tous vocabulaires confondus. 
En fait, cette richesse est dûe au souci de 
portabilité maximale qui animait les créateurs 
de ce système. Le système 83-STANDARD, tel qu'il 
est défini par le "FORTH STANDARD TEAM’, est 
beaucoup plus dépouillé. Le standard ne précise 
que la manière dont un mot doit s'exécuter. Par 
conséquent, un mot standard peut avoir une défi- 
nition incluant des mots non standards, pouvu 
que son fonctionnement soit standard. Prenons un 
exemple: le mot ‘EMIT'. 


Le mot "EMIT' est un mot vectorisé, c'est à dire 
que sa définition peut se résumer pour sa partie 
exécution à une définition du type: 


EMIT EXECUTE  ; 


où  ‘EXECUTE' exécute le cfa du mot situé au 
sommet de la pile de données. En fait, ‘"EMIT' a 
été défini de la manière suivante: 


DEFER EMIT 


L'exécution de ‘EMIT' n'est pas encore initiali- 
sée. Pour ce faire, il faut lui attribuer un 
vecteur qui peut être une primitive définie 
avant ou après le mot vectorisé ‘EMIT'. Dans le 
cas de ‘"EMIT', trois primitives sont disponi- 
bles, ‘(CEMIT)', ‘(PRINT)' et ‘(PEMIT)'. L'affec- 
tation d'une de ces primitives en tant que vec- 
teur au mot "EMIT' est réalisée de la manière 
suivante: 


‘ CEMIT) IS EMIT 


Chacune de ces primitives n'est pas standard. 
Seule ‘EMIT' est standard. Afin de mieux vous 
pénétrer des implications profondes de ce qui 
précède, essayez ce qui suit: 


CDEMIT) DUP CEMIT) (EMIT) 
" CDEMIT) IS EMIT 


Et maintenant, ne soyez pas SSUURRPPRRIISS par 


ce qui se passe à l'affichage. Pour rétablir une 
situation normale, tapez: 


‘ CEMIT) IS EMIT 
ce qui apparaît à l'affichage sous la forme 


Lu CCEEMMIITT)) IISS EEMMIIT (ne vous 
inquiétez pas, ça lui passera dès que vous aurez 
validé par appui sur la touche RETURN). 


11 en est ainsi pour beaucoup de fonctions dont 
"KEY', "CR", "KEY?', ‘CHAR', ‘"DEL-IN', "LOAD', 
"NUMBER', etc... Ces différents vecteurs dépen- 
dants eux-même de paramètres non standards et 
qui auraient pu être exprimés sous forme litté- 
rale au sein des définitions standards. 


Voici la liste des différents vecteurs et les 

définitions exécutées par défaut définis dans 

F83 sous CP/M: 
vecteur: mot exécuté: 

EMIT CEMIT } 

KEY? (KEY?) 

KEY CKEY) 

CR CRLF 

CHAR CCHAR ) 

DEL-IN (DEL IN) 

READ - BLOCK FILE-READ 

WRITE BLOCK FILE-WRITE 

LOAD CLOAD ) 


NUMBER CNUMBER ) 
SOURCE (SOURCE } 
STATUS CR CRLF 
WHERE NOOP 
?PERROR (?ERROR) 
BOOT HELLO 
CONVEY -COPY (COPY) 
AT CAT) 
BLOT CBLOT ) 
LINE NOOP 
INIT-PR NOOP 


Les vecteurs sont identiques sur RUNME sous 
MSDOS . 


Dans d'autres cas, la partie exécution du mot 
est découpée en plusieurs sous-fonctions. C'est 
le cas du mot ‘DUMP’, lequel exécute les mots 
Pro, *“D:274 "EMIT.", "DLN', ‘?.N', '?.A', et 
‘.HEAD'. Par conséquent, ne cherchez pas à con- 
naître le fonctionnement de tous les mots appa- 
raissant à l'exécution de "WORDS", seuls comp- 
tent ceux définis par le 83-STANDARD. 


LE DECOMPILATEUR 

Nous avions dit précédemment que cette version 
FORTH 83-Standard est un Véritable système de 
développement. Le programme F83 inclut un décom- 
pilateur pouvant restituer la définition d'un 
mot à partir de sa forme compilée. Compte tenu 
des remarques du précédent chapitre, vous ris- 
quez cependant de naviguer dans un labyrinthe de 
mots non standards. La décompiltation d'un mot 
est réalisée par la séquence "SEE mot', où ‘mot 
est un mot du dictionnaire. 


Le décompilateur précise la nature du mot décom- 
pilé, c'est à dire défini .par: 


VARIABLE 
DEFER 


CONSTANT 


Dans le dernier cas, la décompilation est forcée 
vers la définition du mot servant de vecteur. 


La décompilation restitue les structures de 
contrôle de type ‘IF..THEN', ‘IF..ELSE..THEN', 
‘BEGIN..UNTIL' etc... uniquement sous la forme 


de branchements conditionnels et inconditionnels. 


LE CHAMP DE VUE 


Un nouveau champ est défini dans la structure du 
dictionnaire, appelé ‘view field address'. Ce 
nouveau champ est situé entre le champ de lien 
(1fa) et le champ du nom Cnfa). Son contenu n'a 
aucune influence sur le système FORTH et les 
programmes que vous pourriez définir. Le contenu 
de ce champ permet simplement de pointer sur le 
fichier et le bloc d'origine du mot défini. 


La recherche du bloc d'origine d'une définition 
du dictionnaire est réalisée par une séquence du 
type: 


VIEW mot 


Le bloc contenant la définition du mot succédant 
‘VIEW' est listé. Le fichier d'origine doit être 
sur le disque actif au moment de l'exécution de 
"VIEW". Pour les possesseurs de système AMSTRAD 
CPC vous devrez renoncer à lister par "VIEW un 
mot dont la définition est originaire du fichier 
*META80". 


LE SYSTEME MULTI -TACHES 


Le système F83 prévoit une utilisation multi- 
tâche (y compris sur AMSTRAD) des ressources du 
système hôte. En réalité, les fonctions de ges- 
tion multi-tâches se résument essentiellement à 
la gestion d'un tampon d'impression où d'un 
compteur. Définition d'un tampon d'impression 
(print spooler): 
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BACKGROUND SPOOLER 1 CAPACITY SHOW STOP ; 


pour valider le spooler, taper ‘"MULTI'. Ce mot 
démarre l'exécution de la boucle muiti-tâche. 
Pour l'arrèter, taper *SINGLES" . 


puis taper ‘SPOOLER WAKE' ce qui démarre la 
tâche du spooler. Pour interrompre le spooler, 
taper ‘SPOOLER SLEEP'. Pour le redémarrer, taper 
à nouveau ‘SPOOLER WAKE"'. 


Exemple d'utilisation de SPOOLER au sein d'une 
définition: 


SPOOL-THIS 
SPOOLER ACTIVATE 3 15 SHOW STOP  ; 


L'EDITEUR 


Le système F83 est livré avec un éditeur ‘en 
ligne’, ce qui rebutera nombre d'utilisateurs. 
Ce choix permet pourtant une très large portabi- 
lité du programme F83. Si cet éditeur ne vous 
convient pas, créez votre propre éditeur. Cepen- 
dant, pour pouvoir entrer vos premières défini- 
tions, notez ces quelques commandes: 


p texte insère le texte à la ligne 


courante 
n T sélectionne la ligne n 
+-n C déplace curseur +- n caractères 
TOP met curseur ligne 0, colonne 0. 
n NEW combine les actions de T et P 


avec répétition 
O texte surimpression (overwrite). 


Avec certains systèmes, un affichage semi-plein 
écran peut étre obtenu en choisissant une des 
options terminal HEAT, FALCO, TELEVIDEO, QUME, 
ANSI, PERKIN. Si aucune de ces options ne donne 


satisfaction, vous pouvez revenir à la situation 
initiale en tapant DUMB. 


LES FICHIERS 


Autre nouveauté, les fichiers 83-Standard du 
Forth conçu par Laxen et Perry gère des fichiers 
compatibles avec le système d'exploitation rési- 
dent. De plus, les programmes sources élaborés 
sous CP/M sont téléchargeables et compatibles 
sous MSDOS et inversement. Cette compatibilité 
se réduit aux seules commandes standard. Les 
définitions écrites en assembleur ne sont compa- 
tibles qu'avec un micro-processseur de même type 
et sur un système ayant les mêmes caractéristi- 
ques. 


N'importe quel fichier peut être ouvert, y com- 
pris les fichiers générés par d'autres langages 
(Turbo-PASCAL, BASIC, dBASE II, LOGO, WORDSTAR, 
etc...) à charge pour vous de définir les rou- 
tines capables de les exploiter. Exemple: 


- sous Turbo-PASCAL, générez un fichier quel- 
conque nommé ‘fichier.PAS" 

- sous F83, tapez ‘OPEN fichier.PAS" 

- 1 LIST affichera une partie du contenu de 

‘fichier.PAS'. 


Dans le cas présent, le listade est possible, 
car ‘fichier.PAS' est au format ASCII. Mais dans 
le cas de fichiers de données issues d'un pro- 
gramme de type dBASE 11 ou d'un fichier bi- 
naire, ce listagé ne sera pas possible directe- 
ment. 


pour créer son propre fichier source, il faut 


taper: 


n CREATE-FILE fichier.BLk 


où n indique le nombre de blocs écrans prévus 
dans votre fichier. Un conseil, si votre fichier 
est un fichier de travail, prévoyez large. Une 
fois votre frappe terminée, vous pourrez tou- 
jours le recopier en le raccourcissant à l'aide 
de la commande PIP disponible sous CP/M. 


Vous pouvez visualiser les noms de fichiers 
disponibles en tapant ‘DIR’ sous FORTH. L'ouver- 
ture d'un fichier génère un en-tête dans le 
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dictionnaire de jibellé identique au nom du 
fichier ouvert. Pour réouvrir par la suite ce 
même fichier, il suffira de retaper simplement 
le nom du fichier. Exemple: 


- ouverture: OPEN fichier1i.ext 
- ouverture: OPEN fichier2.ext 
- réouverture: fichieri.ext 


L'activation du mode éditeur est réalisée par la 
commande ‘’n EDIT'. Le système FORTH demande 
votre cachet d'identification. Ce cachet permet 
de personnaliser le:contenu des blocs écrans 
sources. Par convention, un cachet d'identifica- 
tion type comprend: 


. 2 chiffres pour le numéro du jour 
.- 3 lettres pour le nom du mois en abrégé: 
JAN, FEV, MAR, etc... 
- 2 chiffres pour le millésime 
- 2 à 3 caractères pour les initiales du pro- 
grammeur . 


Exemple: 05sep86 MP 


Ce cachet d'identification est apposé à l'extré- 


mité de la ligne 0 des blocs écrans mis à jours. 
L'abandon d'une session d'édition avec mise à 
jour des fichiers est réalisée par ‘DONE'. 


Une documentation complète est en cours 
d'élaboration, reprenant l'ensemble des 
différents vocabulaires. Ce glossaire sera 
disponible dans quelques semaines. En attendant, 
vous pouvez faire part de vos questions et 
découvertes en appelant Marc PETREMANN au 


46.56.33.67 hdb. 


( EXECUTION VECTORISEE : STRUCTURE DE CASE ) 


Le) 

1 

2 : CASE: CREATE ( crée une en-tête dans le dic 
3 SMUDGE { valide l’en-tête ) 

4 1 { compile fa mots qui suivert} 
5 DOES > { partie exécution ) 

6 SWAP 2% + calcule l’adr contenant fa) 
H 9EXECUTE : ( execution si cfa diff, @) 

9 CASE: ETAT-CIVIL MR ME ML EN : 

© 


OÙ MACHINE A CALCULER } 


1 
2 VARIABLE COMFTEUR 

3 VARIARLE COMPTE-SOMMES 
4 VARIABLE DERNIERE -SOMME 


: REFETE Çn —) 
COMPTEUR 1 OVER +! 9 
5 SFACES 2 .R 
DUF DERNIERE-SOMME ! 
DERNIERE-SOMME à 10 .R 
COMPTE-SOMMES +! 
COMPTE-SOMMES 9 10 .R : 


HANeOLDUEU 


Es + pe 


Lei 


{ MACHINE A CALCULER ) 


: MM Qn -— ) 
© COMPFTEUR 
© COMPTE-SOMMES : 
© DERNIERE-SOMME ! 
BEGIN CR INFUT ?DUF 
1F REPETE 
ELSE ." Total...: " COMFTEUR 9 
S SPACES 2 .R © 10 .R 
COMPTE-SOMMES 9 10 .R QUIT 
THEN 
Q UNTIL : 


SODNT UM Bb LIN 


nm — 
ms © 


LS) 
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MATHS SIGNATURE ET HASHCODE 


SIGNATURE ET HASHCODE 


Le problème typique est de transformer une 
chaîne de caractères, de longueur variable, et 
dont ia capacité de codage, c'est à dire le 
nombre total de chaînes différentes,est astro- 
nomique, en un nombre entier compris entre deux 
bornes, appelé signature. 

S'il y a N objets à ranger en C cases, il y 
plusieurs objets 

aucun objet dans 


aura, en général, collision: 
dans la même case, et manque: 
une case. 
- Deux objets de même nom ont la même image, 
toutefois l'inverse est faux. 
- Si l'image manque, l'objet n'a pas encore 
été classé. 

Les applications sont multiples: 
- accélérer les recherches dans un dictionnai- 
re: pour chercher N objets en R essais, il faut 
N/( 2*R } pointeurs d'entrée en dictionnaire, 
plus un pointeur par objet, chaînant les mots 
de même signature. 
- détecter les erreurs: 
au texte avant transmission, 
puis contrôlée. Le risque de ne pas voir l'erreur 
est de 1/G. G: nombre de signatures valides. 

Le calcul d'une signature est généralement 
basé sur une suite pseudo-aléatoire. 


la signature est ajoutée 
archivage ou frappe, 


LES SUITES PSEUDO-ALEATOIRES 


La suite: u 


= u*A + B 8 G ( modulo G ) 
une période au plus égale à G. 
Pour G impair, elle a, en général: 


n+i 


une valeur unique u, invariante 

une suite de période G-1, ou un de ses sous- 

multiples. 

s'il n'y a pas de sous-période, G-1 itérations 
feront apparaître chaque valeur une seule fois, 
sauf u,: aucune collision, un seul manque. 


En général, on rajoute une valeur numérique c 
dépendant du caractère examiné, à la suite pré- 
cédente: CONTRE u,*A +B +c 0G 

Pour A =, B=0,c=n° de code ASCII, la 
transformation s'appelle CHECK-SUM. 


PROBLEMES DE HASHCODE 


1) Pour N objets et G cases, combien de vides 7 
2) Pour N bien supérieur à G, remplissage mini- 


moyen et maximum de chaque case 7 


mum, 
1) La solution du premier est très simple: 
probabilité qu'une case donnée ne soit pas 
touchée lors de 1 tirage : p = 1 -1/G 
N tirages: Pa p**N 
e** (N *log,(1 -1/6) }Ÿ e**(-N/6) 


Pour 300 objets et 100 cases: 
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p= -1/100 = 0,993 -log,p= 0,01005033 
U= -N* log p = 3,0151 = I* log 2 +b 
= 4* 0,693 +0,2431 
e*kx - 14 (2*x) /(2-x) à 0,3% près pour ki €0,35 
e**0,2431 = 1+ 2/1,7569 =1,2767 
U= 2%X*X] * exkxb = 2*%x4 * e**0,2431 = 16 * 1,2767 
= 20,43 

Lors de multiples essais, ce nombre serait ré- 
parti selon une loi non détaillée ici, mais dont 
la moyenne serait 20,43. 
2) Avant de résoudre le deuxième problème, il 
parait nécessaire de faire un détour par le cal- 
cul des probabilités. Je sais, ce n'est pas très 
digeste, mais mieux vaut, si nécessaire,se pren- 
dre la tête entre les mains pour bien comprendre, 


et après tout { ou presque ) devient facile! 


CALCUL DE PROBABILITE 


Appelons épreuve un processus parfaitement dé- 
fini, qui fournit une détermination x; de la va- 
riable aléatoire x, par exemple: 

- le jet d'un dé 

- la mesure physique d'une constante 

- la longueur d'un rail pour une quantité donnée 
de métal 

etc... 

S'il n'y apas d'effet de mémoire, le processus 
est entièrement caractérisé par sa loi de dis- 
tribution, c'est à dire la proportion de cas ob- 
servés entre x et x+4x, ou son intégrale, la loi 
de répartition: probabilité que x soit inférieur 
à x1i donné. 

Petite digression: voulez-vous générer des 
nombres aléatoires répartis selon une loi de 
distribution définie à l'avance, par exemple 
gaussienne? Rien de plus simple: son intégrale 
P(x) varie de 0 à 1. Il suffit de créer une 
fonction (pseudo) aléatoire y de distribution 
uniforme de 0 à î, chaque valeur Xi est donnée 
par: P(x;)= Yi 

N épreuves fournissent N valeurs Xi» 
d'elles est distribuée autour d'une moyenne x, 
le carré de l'écart à cette moyenne s'appelle 
la variance v.Leur somme à les propriétés sui- 


chacune 


vantes: 
- là moyenne de la somme est égale à N*x 
- la variance de la somme est égale à la somme 
des variances élémentaires 
- la somme converge vers une loi de distribution 
gaussianne, caractérisée par sa moyenne et son 
écart type. 
Le calcul peut s'effectuer en trois temps: 
- noter les valeurs 
- calculer la moyenne 
- calculer la variance moyenne, 
ce qui nécessite une case mémoire par mesure, 
ou également en deux temps. À chaque mesure, on 


actualise 3 accumulateurs: 


— 
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16 


MO:= MO +1 nombre de mesures 

Mi:= Mi +X; somme des mesures 

M2:= M2 +x,**2 somme des carrés 
Et à la fin: 

Nombre N := MO 

Moyenne: Xo'= M1/N 

Variance: vi= M2/N -(xo**2) 


# 


LOI GAUSSIENNE 


em 


Pour ceux qui veulent effctuer les calculs, 


voici les formules: 
Fonction de distribution: 


x 


L _——— 


err(x)= Z(x)z —*e 2 


Var 


Ses trois premiers moments sont: 


MO= somme de err(x) =1 
M1= x*err(x) =0 (fonction symétrique) 
M2= x**2 *err(x) = (variance) 


Fonction de répartition: 
Probabilité qu'une variable soit inférieure à 


x: p(x) 
Fonction centrée de répartition: 
Probabilité qu'une variable soit comprise en- 
tre -x et +x : 


3 5 7 
erf(x)=A(x)=V/—<* (x X 4 #2 = ,..) 
TE 113 215 317 
A(X)= 1 42 82 «(4 -1 +1*3 - 1#3*X5 # .. ) 
à 2 x 6 


mule quand l'oscillation est minimale. 
P et A sont reliées par: 

2 x p(x) = 1 +A(x) 
A(x) a les valeurs suivantes: 


3 . 
99 99,734 99.999.99 


4.893 | 5.32 dt-A(x) 5 
A(x) %/99.9999/99.99999{10g,,)6.2416 


Revenons à nos moutons: je fais un tirage et, 
pour une case donnée, je compte 0 si elle n'est 


une variable aléatoire, de moyenne p="1/G =X 


et la variance: etre) PES LÉ vis 25 


G G G 
Pour la somme des N tirages, on obtient: 
S= N/G 
v= tv = MÉt 


G-. 
VS si G est grand, 
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Moyenne: 


Variance: 
Ecart type: 


racine carrée, soit 


11 faut arrêter le calcul de la deuxième for- 


pas touchée, et 1 dans le cas contraire. Ceci est 


la moyenne des carrés des écarts à DO est aussi de 


Pour le cas très important où G=2 {pile ou 
face): x= 1/2; vz 1/4 ; 
S= N/2; = N/4 ; =VN /2; 
Pour une série de 10000 tirages pile ou face, 
la somme des pile sera de 5000 avec un écart type 
de 50 . 


pour N= 800 et G= 200, on obtient: 
remplissage moyen S= N/G =4 
écart type VTT =2 

Les valeurs extrêmes, qui n'ont que 1/G =1/200 
chance d'être dépassées sont: 
44 2* 2.576 = 44 5.152 
{ px) = 0.995, A(x) = 0.99, x= + 2.576 ) 

La valeur minimale est négative: il y aura 
plusieurs cases vides, combien 
ke So = VS = 2 P{x)= (1-0.9545)/2 =0.02275 

G*P(x}= 4.55 

Autre calcul possible: 
probabilité qu'une case reste vide: 

(1-1/6)**N we**(-N/G) = e**k(-4) = 1/54.6 
nombre de cases vides: G/54.6 = 3.66 

L'écart entre ces résultats provient du carac- 
tère sommaire de la théorie et non des approxima- 
tions faites. 

Un résultat, qui pourrait paraître curieux à 
été établi: la proportion de cases vides ne dé- 
pend que du remplissage moyen, il est de 2% pour 


un remplissage de 4. | 
OÙ ( ENTREES ET SORTIES ) 


: SIGNE 
2DUP XOR 
>R ABS DR 
DABS 
R> Ro 3 


: Dé 

SIGNE >R 
10 DUP 2SWAF 
11 ROT * 
12 ROT ROT Ux 
15 ROT O SWAP 


QOADANTUBUMN 


114 D+ R5 
115 D+- : 


Le) 


ENTRÉES ET SORTIES ) 


INPUT PAD 10 EXPECT PAD 1- NUMBER 3 
5 SIN INPUT 

DPL ® 1 < IF 100 Dx ELSE 

DFI ® 1 IF 10 DX ELSE 

DPL 9 2 IF 1 Dx ELSE 


2DROF THEN THEN THEN : 

: F +R SWAF OVER DAES 

<h # # 46 HOLD #S SIGN #> 
R> OVER - SPACES 

TYPE SPACE ; 


OU bUNe O 0 DO UE AN 


pi me me me né 


( ENTREES ET SORTIES ), 


: DD. SWAF OVER DARS 
<# DPL 9 DUPF G= 
IF DROP D. DROF 
ELSE © DO # LODP 
46 HOLD #S SIGN #> 
TYPE SPACE 
THEN : 


DDUNTMhRUNE CS 


." SUF 2 CHIFFRES SEULEMENT APRES LA VIRGULE 


PROLOG 1e: opérations arithmeétiques 


A l'origine, Prolog ne semble guère doué pour le calcul 
numérique. Il n'en est rien. Tout système Prolog digne 
d'intérêt dispose de prédicats autorisant le traitement 


des valeurs numériques selon les quatres opérations 
élémentaires. 
Considérons la somme de deux nombres entiers a et b, le 


résultat © sera vérifié si a+b-=c, opération notée 


Prolog sous la forme: 


en 


2:+(5,7,12). 
-- SUCCES --(1)-- 


Si le résultat doit être calculé, on remplacera le 
troisième argument par une variable non instanciée: 


2:+(5,7,#%X). 
tx = 12 
_- SUCCES --(1)-- 


On peut procéder à plusieurs calculs simultanément, ceci 


dans la limite de la chaîne de caractères admise en entrée 


par Prolog: 


2:+(5,7,#X)&+(#X,10,#Y). 
#x = 12 

*Y = 22 

_— SUCCES --(1)-- 


La résolution du premier prédicat instancie la variable 
*X, ce qui permet la résolution du second prédicat. On ne 
peut résoudre un prédicat d'opération sans avoir instancié 
les deux premiers termes ou les avoir définis en tant que 
constantes: 


2:+(#X,6,12). 
ERR 1 :EXECUTION 


Pour pouvoir déterminer la valeur d'une variable quelle 
que soit sa place dans le prédicat, il faudra définir les 
règles de résolution correspondantes : 


a+b=x est résolu par  x=a+b 
a+x=c est résolu par  x=c-a 
x+bse est résolu par  x=c-b 


A partir de là, on définit les règles suivantes: 


=1=<1DSOMC#XO,#X1,#X2) : 
VAR(#X2)& 
+(#X0,#X1,#X2)& 
CUT. 

=2=<11>SOM(#X0,#X1,#X2) : 
VAR(#X1)& 
-(#x2,#X0,#X1)& 
CUT. 

23=<11>SOM(#X0,#X1,#X2) : 
VAR(#X0)& 
-(#X2,#X1,#X0)& 
CUT. 


Et dont on peut vérifier le fonctionnement: 


2:80M(2,#X,7). 
#x 5 
-- SUCCŒS --(1)-- 


?:SOM(#X,5,7). 
LE ( = 
-- SUCCES --(1)-— 


On peut étendre ce principe aux trois autres opérations 
arithmét iques : 


=1=<11DIF(#X0,#X1 »*X2): 
VAR(#X2)& 
=(#X0,#X1,#X2)& 
CUT. 

=2=<11DDIF(#X0,#X1,#X2): 
VARC#X1)& 
-(#X0,#X2,#X1)& 
CUT. 

23=<1DDIF(#XO,#X1,#X2): 
VAR(#X0)& 
+(#X1,X2,#X0)8& 
CUT. 
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=1=<11>PROD(#X0,#X1,#X2) : 
VAR(#X2)& 
#(#X0,#X1,#X2)& 
CUT. 

z2=<11>PROD(#X0,#X1,#X2) : 
VAR(#X1)& 
DIV(#X2,#X0,#X1)& 
CUT. 

=3:<11>PROD(#X0,#X1,#X2) : 
VAR(#XO)& 
DIV(#X2,#X1,#X0)& 
CUT. 


=1=<€11> QOT(#X0,#X1,#X2): 
VAR(#X2)& 
DIV(#X0,#X1,#X2)& 
CUT. ; 

=2=<11> QUOT(#XO,#X1,#X2) : 
VAR(#X1)& 
DIV(#X0,#X2,#X1)& 
CUT. 

=23=<11> QUOT(#X0,#X1,#X2) : 
VAR(#X0)& 
#(#X2,#X1,#X0)& 
CUT. 


Et maintenant nous sommes prèts à résoudre n'importe 
quelle équation du premier degré à une inconnue, ceci 
quelle que soit La position de l'inconnue dans notre 
équat ion: 


(3*X)+45-26 
sera décomposé en deux opérations élémentaires: 


(3#X)+5:= 26 


et s'exprime en Prolog par: 
?:SOM(#Y,5,26)&PROD(3,#X,#Y). 


Suivons la résolution en activant le mode "trace" par la 
commande TRON (sur Prolog FIL pour THOMSON) : 


--> SOM(#X0,5,26) 
SOM(#X0,5,26) 
--> VAR(26) 
<== SOM(#X0,5,26) 
SOM(#X0,5,26) 
> VAR(5) 
<-= SOM(#X0,5,26) 
=3= SOM(#X0,5,26) 
--> VAR(#X0) 
> -(26,5,#X0) 
-—> CUT 
=> PROD(3,#X1,21) 
PROD(3,#X1,21) 
-—> VAR(21) 
<-- PROD(3,#X1,21) 
= PROD(3,#X1,21) 
> VAR(#X1) 
_——> DIV(21,3,#X1) 
-> CUT 
#Y = 21 
LD = 7 
-- SUCCŒS —-( 1 )— 


CONCLUSION: Prolog permet le traitement des opérations 
arithmétiques élémentaires, et, par application de règles 
simples, d'étendre son pouvoir de résolution à ce domaine 
un peu trop fréquemment oublié de la littérature 
concernant les systèmes experts. En fait, on peut 
considérer que l'ensemble des règles mathématiques 
puissent constituer une base de connaissance applicable à 
la résolution de problèmes ‘plus complexes que celui 
précédemment traité. C'est le cas de Mumath, disponible 
sur Apple II, écrit en LISP, qui traite les opérations 
mathématiques sous forme symbolique et, éventuellement 
numérique. A noter aussi, certains programmes LOGO 
diffusés dans le défunt magazine de l'AFUL, permettant 
d'opérer des simplifications d'équat ions. 
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Le PCW est doté dès sa 
naissance d'une belle 
bibliothèque de pro- 
grammes inté ressants 
puisqu'elle compte no- 
tamment MULTIPLAN, 
dBASE II et TURBO 
PASCAL. A ceux-ci vient 
de s'ajouter un compi- 
iateur C fort intéres- 
sant: le HISOFT C, 
Hisoft étant une socié- 
té spécialisée dans les 
outils de programma- 
tion. 


Ce compilateur reprend 
la même philosophie que 
TURBO PASCAL (est-ce un 
hasardt!...), c'est à 
dire une très grande 
rapidité de compilation 
et production directe 
d'un module exécutable 


sans passer par la 
phase fastidieuse du 
‘link’ (édition des 
liens). De plus, il 


reprend le quasi-stan- 
dard créé par Kernighan 
et Ritchie (à l'’excep- 
tion toutefois des 
flottants), ce qui per- 
met d'accéder à de nom- 
breux sources du domai- 
ne public. 


Par ailleurs, il est 
livré avec une documen- 
tation très complète 
sous forme de classeur 
et, ce qui ne gâche 
rien, avec un excellent 
éditeur de texte orien- 
té programmation. 


Ce compilateur se veut 
“UNIX-LIKE", c'est à 
dire qu'il se rapproche 
autant que faire se 
peut de l'utilisation 
sous UNIX. Néanmoins, 
l'utilisation sous CP/M 
pose certains problè- 
mes, notamment au ni- 
veau de la gestion des 


.entrées-sorties et du 


passage d'arguments à 
l'appel du programme 
depuis CP/M. Conscients 
de ce problème, les 
développeurs de Hisoft 
livrent avec le compi- 
lateur une librairie 
appelée CPM.LIB. Celle- 
ci donne accès à de 
nombreuses fonctions de 
CP/M depuis le C. 


Le programme ci-joint montre comment passer des On peut ensuite utiliser ces données de manière 
arguments de CP/M à une application C. Son but classique. ARGC contient le nombre d'arguments 
est de compter les parenthèses ouvrantes et passés, ÿ compris le nom du programme et ARGV 
fermantes dans un source C, celles-ci devant est un pointeur pointant dans un tableau de 


ètre en nombre égal... 


11 s'agit donc de passer à ce programme le nom programme le FOPEN(x++argv,"r") 
du source. il faut pour cela utiliser la procé- 1 ; 
dure CPM_CMD_LINE donnée dans CPM.LIB et créer 
un buffer permettant le stockage des données 


passées. Par la même occasion, le nom du pro- 
gramme est lui-même passé. On peut ainsi créer Dernière remar : i 
E que: les deux derniers IN 
un programme qui vérifie son propre nom et qui sont conditionnels, c'est à dire que le Sie 


refuse de fonctionner si ce nom a été changé! teur 


Lo 


PERTE TT TT LIL LL LL. LL I LSSLSLER SLR...) 7 
/# #/ 
/* CONPTE LE NOMBRE DE PARENTHESES DANS UN SOURCE #/ 


/# #/ 
/# Gilles BERTIN , a CHALON/SAOKNE le 6 avril 1986 #/ 
/# avec le HISOFT-C sous CP/M 3.0 sur AMSTRAD PCY #+/ 
/* #/ 


VÉTIICIIISIS SEL ELELSSISEE SE] A SA RE A PE A EE / 


#include stdio.h 


min(argc,argv) 


int argc; /*# contient le nombre de chaines passees #/ 
’ /# y compris le nom du programme #/ 
char #targvll; /# definit une chaine dé pointeurs, pointeurs */ 


/# qui pointent sur des chaines de caracteres +/ 


int car,ouvrel,fermel,ouvre2, fermez; 
FILE #fichier; 
FAST char argv_buffert MAXARGS#2+1921; /# voir pages 115-116 HISOFT-C #/ 


ouvrei=0; fermelr0; ouvre2=0; ferme2=0; 
cpm cmd_line (&argc, &argv,argv_buffer); /# simule passage de commande saus UNIX%K/ 
if C--argc == 1) ù 


{ ; 
fichier=fopen(#++targv,"r"); /# ouvre le fichier demande #/ 
if (fichier!=0) 
{ 
for ( ; (car=getc(fichler)) != EOF; ) 
{ 
switch (car) 
{ 
case ‘{’ : +touvrel; break; 
case ‘}' : +tfermei; break; 
case ‘(’ : ++ouvre2; break; 
case ')' : +tferme2; break; 
default : break; 
} 
} 
printf ("Nombre de { = %d\n",ouvrel1); 
printf ("Nombre de } = %d\n" ,fermel) 
printf ("Nombre de ( = %d\n",ouvre2); 
printf ("Nombre de:) = %d\n"”,ferme2); 
} 
else : 
{ printf("’Le fichier n'existe pas sur ce disque.",#+argv); } 
} 
else 
{ 
if Cargc==0) printf (Donnez un nom de fichier."); 
P 
else printf ("Trop d'arguments. %4\n" ,argc); 
} 
) 
#inciude ?cpm.11b? /# ne compile que les fonctions necessaires #/ 
#include ?stdio.11b? /# au programme #/ 


AMSTRAD PCW 


pointeurs, ces derniers pointant sur les chaînes 
de caractères arguments. A remarquer dans ce 
11 convient en 
effet de bien pointer sur le second argument, le 
premier étant le nom du programme; le --argc est 
là) pour la même raison. 


ne va chercher dans les fichiers cités en 
INCLUDE que les procédures dont il a besoin. 
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